home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 November / 1989-11.d64 / drive lights (64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  596b  |  11 lines
  1. 10 fort=49152to 49285:readd:poket,d:ck=ck+d:next
  2. 20 if ck<> 19407then print"error":end
  3. 40 data 169,1,162,8,160,15,32,186,255,169,0,32,189,255,32,192,255,162
  4. 50 data1,32,201,255,162,0,169,77,32,210,255,169,45,32,210,255,169,87
  5. 60 data 32,210,255,138,32,210,255,169,5,32,210,255,169,1,32,210,255
  6. 70 data 189,90,192,32,210,255,138,72,32,204,255,162,1,32,201,255,104
  7. 80 data170,232,224,45,208,204,169,85,32,210,255,169,67,32,210,255,32
  8. 90 data 204,255,96,169,254,170,32,21,5,202,224,1,208,248,32,21,5,232
  9. 100 data 224,225,208,248,240,235,138,72,73,255,168,169,248,141,0,28
  10. 110 data 202,208,248,169,240,141,0,28,136,208,248,104,170,96
  11.